R Notebook

library(ggplot2)
library(plotly)

Registered S3 method overwritten by 'data.table':
  method           from
  print.data.table     
Registered S3 method overwritten by 'htmlwidgets':
  method           from         
  print.htmlwidget tools:rstudio

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

library(readr)
library(lubridate)

Attaching package: ‘lubridate’

The following objects are masked from ‘package:base’:

    date, intersect, setdiff, union

library(stringr)

Análisis temporal

df <- read.csv("./BDD_DICIEMBRE_2022.csv")
df$FECHA <- dmy(df$FECHA)

fechas <- data.frame(table(df$FECHA))
colnames(fechas) <- c("Fecha","Freq")
fechas$Fecha <- ymd(fechas$Fecha)
head(fechas)

#class(fechas$Fecha)

library(highcharter)

highchart(type = "stock") %>%
  hc_add_series(
    data = fechas, 
    type = "line",
    hcaes(x=Fecha,
          y=Freq,
          group=year(Fecha)))

df %>%
hchart( 
       type = column,)

sin_mes_fer <- data.frame(table(df$MES_1, df$FERIADO))
colnames(sin_mes_fer) <- c("Mes", "Feriado", "Freq")

hchart(sin_mes_fer, 
       type = "column",
       hcaes(x=Mes,y=Freq,group=Feriado),
       stacking = "normal")

mes <- ggplot(data = df, aes(y=MES_1, fill=FERIADO))+
  geom_bar(
    position = "stack"
  )

font = list(
  family = "DM S",
  size = 15,
  color = "white"
)

label = list(
  bgcolor = "#232F34",
  bordercolor = "transparent",
  font = font
)

ggplotly(mes, tooltip=c("x")) %>%
  style(hoverlabel = label) %>%
  layout(font = font)